(mm-multibyte-string-p): New.

diff --git a/lisp/gnus/mm-util.el b/lisp/gnus/mm-util.el
index c258a515ddee4f347f9d3b613a65eddb5e6404db..0194e35a3abed88e41a0939441b7a4fb7d850b06 100644 (file)
--- a/lisp/gnus/mm-util.el
+++ b/lisp/gnus/mm-util.el
@@ -110,7 +110,8 @@
                    mm-mime-mule-charset-alist)
            nil t))))
      (string-as-unibyte . identity)
-      )))
+     (multibyte-string-p . ignore)
+     )))
 
 (eval-and-compile
   (defalias 'mm-char-or-char-int-p